home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b4.d64 / sec4.5 < prev    next >
Text File  |  2007-02-28  |  173b  |  9 lines
  1. 0010 DIM BOX(6)
  2. 0020 FOR THROW:=1 TO 100 DO
  3. 0030 DIE:=RND(1,6)
  4. 0040 BOX(DIE):=BOX(DIE)+1
  5. 0050 ENDFOR THROW
  6. 0060 FOR VALUE:=1 TO 6 DO
  7. 0070 PRINT BOX(VALUE)
  8. 0080 ENDFOR VALUE
  9.